home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ultra Mac Games 1 & 2
/
UltraMacGames2.iso
/
Educational
/
shapes of molecules
/
stack.txt
< prev
Wrap
Text File
|
1991-08-01
|
4KB
|
135 lines
-- stack: in
-- format: 8 (HyperCard 1)
-- flags: 0x1000 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 1
-- first background id: 4747
-- card count: 20
-- first card id: 4306
-- list block id: 13715
-- print block id: 3460
-- font table block id: 0
-- style table block id: 0
-- free block count: 1
-- free size: 3008 bytes
-- total size: 49152 bytes
-- stack block size: 3072 bytes
-- created by hypercard version: 0x01228000
-- compacted by hypercard version: 0x01228000
-- modified by hypercard version: 0x01228000
-- opened by hypercard version: 0x01228000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFBBFFFFFFBBFFFF
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----
-- By Ron LeMay, Feb 1990
ON OPENSTACK
GLOBAL NUMBER
global tries
PUT ZERO INTO NUMBER
put zero into background field "number"
put zero into tries
hide menubar
hide background field "ans"
set userlevel to 5
END OPENSTACK
on opencard
global number
global tries
put the number of this card into bkgnd field"ct"
put tries into background field "try"
put number into background field "number"
show card button "Click Here for Hint"
show bkgnd button "Polar"
show bkgnd button "Nonpolar"
end opencard
on check
global response
global number
global tries
get item 1 of background field "ans"
if it = response then
get background field "number"
add 1 to number
put number into background field "number"
-- play "boing"
PUT "CORRECT!" INTO BACKGROUND FIELD "CORRECT"
show BACKGROUND field "correct"
wait 90
HIDE BACKGROUND FIELD "CORRECT"
visual effect dissolve to gray
show card button "Click Here for Hint"
GO TO NEXT CARD IN STACK
ELSE
PUT "TRY AGAIN" INTO BACKGROUND FIELD "CORRECT"
SHOW BKGND FIELD "CORRECT"
WAIT 90
HIDE BKGND FIELD "CORRECT"
end if
end check
on showhint
hide card button "Click Here for Hint"
get item 2 of background field "Ans"
if it = "n" then
hide bkgnd button "nonpolar"
end if
if it = "p" then
hide bkgnd button "polar"
end if
end showhint